home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 55
/
Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64
/
t&t zufall (mc)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
568b
|
28 lines
9 :goto100:
10 :save"@0:t&t zufall(mc)",8:return:
11 :
12 :
20 :rem---zufallszahlen(139-143)
21 :sys57534:return:---bilden
22 :sys57502:return:---init
23 :a=peek(53266):return:--rasterstrahl
24 :a=peek(56324):return:---timer
25 :
26 :
30 :rem---taste
31 :wait198,1:geta$:on-(a$="")goto31:return:
34 :
35 :
100 :rem---aufruf
101 :print"[147]zufall:[146] peek(139-143)"::gosub22:
102 :gosub20:fori=.to4:printtab(i*5)peek(139+i);:next:print:
103 :gosub30:ifa$<>" "goto102
104 :
110 :print"rasterstrahl: peek(53266)"
111 :gosub23:printtab(pos(.)and3)a;:gosub30:on-(a$<>" ")goto111:print
112 :
120 :print"timer: peek(56324)"
121 :gosub24:printtab(pos(.)and3)a;:gosub30:on-(a$<>" ")goto121:print
122 :
130 :list20-24: